home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304E.ZIP;1 / EXPAS.ARJ / FGDOC / EXAMPLES / PASCAL / 08-01.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-24  |  738 b   |  44 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. const
  5.   PAGES = 4;
  6.  
  7. var
  8.   color    : integer;
  9.   old_mode : integer;
  10.   page     : integer;
  11.   message  : string[8];
  12.  
  13. begin
  14.   if (fg_testmode(1,PAGES) = 0) then
  15.   begin
  16.     writeln('This program requires color.');
  17.     exit;
  18.   end;
  19.  
  20.   old_mode := fg_getmode;
  21.   fg_setmode(1);
  22.  
  23.   for page := 0 to PAGES-1 do
  24.   begin
  25.     fg_setpage(page);
  26.     color := page + 1;
  27.     fg_setcolor(color);
  28.     fg_rect(0,fg_getmaxx,0,fg_getmaxy);
  29.     fg_setattr(0,color,0);
  30.     fg_locate(12,17);
  31.     str(page,message);
  32.     fg_text('page '+message,6);
  33.   end;
  34.  
  35.   for page := 0 to PAGES-1 do
  36.   begin
  37.     fg_setvpage(page);
  38.     fg_waitkey;
  39.   end;
  40.  
  41.   fg_setmode(old_mode);
  42.   fg_reset;
  43. end.
  44.